Inference at * 2 2 
Iof proof for Lemma select nth tl:



1. T : Type
2. T List
3. u : T
4. v : T List
5. n:{0...||v||}, i:{0..(||v|| - n)}. nth_tl(n;v)[i] = v[(i+n)]
6. n : {0...||v||+1}
7. i : {0..((||v||+1) - n)}
8. 0 < n
  nth_tl(n - 1;v)[i] = [u / v][(i+n)] 

latex

 by ((RWO "5" 0) 
CollapseTHENA ((Auto_aux (first_nat 1:n) ((first_nat 2:n),(first_nat 3:n
C)) (first_tok SupInf:t) inil_term))) 

latex

C1: 

C1:   v[(i+(n - 1))] = [u / v][(i+n)]
C.

Definitions	P  Q, True, T, , S  T, P & Q, t  T, P  Q, P  Q, x:A. B(x), {i..j}, {i...j}
Lemmas	non neg length, length cons, select wf, length wf1, true wf, squash wf, int seg wf